home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / On this Date 3.0.cpt / On this Date 3.0 / card_2998.txt < prev    next >
Text File  |  1992-02-12  |  4KB  |  142 lines
  1. -- card: 2998 from stack: in.0
  2. -- bmap block id: 47371
  3. -- flags: 4000
  4. -- background id: 2747
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the short time into line 1 of cd fld "Time"
  9.   put the short date into line 2 of cd fld "Time"
  10.   if locktext of cd field "CountDown" = true then
  11.     put the long date && the long time into now
  12.     convert now to seconds
  13.     put "1/01/2000 12:00:01 AM" into EndTime
  14.     convert EndTime to seconds
  15.     if now > EndTime then
  16.       beep 5
  17.       answer "Your clock is either wrong‚Ķ"
  18.       answer "or you are running very old Software!" with "Control Panel" or "Edit Script"
  19.       if it = "Control Panel" then doMenu "Control Panel"
  20.       else Edit Script of this card
  21.       exit idle
  22.     end if
  23.     put EndTime - now into diff
  24.     Divide diff by 86400
  25.     put trunc(diff) into days
  26.     subtract days from diff
  27.     multiply diff by 24
  28.     put trunc(diff) into hours
  29.     subtract hours from diff
  30.     multiply diff by 60
  31.     put trunc(diff) into minutes
  32.     subtract minutes from diff
  33.     multiply diff by 60
  34.     put trunc(diff) into seconds
  35.     put "There are" && days && "days," && hours & " hours," && minutes && "minutes, and" && seconds & " seconds until the end" && "of the century!" into cd fld "CountDown"
  36.   end if
  37. end idle
  38.  
  39.  
  40. -- part 9 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=163 top=215 right=235 bottom=454
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 204
  48. -- text size: 12
  49. -- style flags: 1280
  50. -- line height: 16
  51. -- part name: Intro
  52.  
  53.  
  54. -- part 12 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=467 top=17 right=48 bottom=503
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 6179 / 6179
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: 
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   play "Forward!"
  69.   repeat 5
  70.     set icon of me to "Sml Next Hand"
  71.     set icon of me to "Med Next Hand"
  72.     set icon of me to "Lge Next Hand"
  73.     set icon of me to "Ex Lge Next Hand"
  74.     set icon of me to "Lge Next Hand"
  75.     set icon of me to "Med Next Hand"
  76.   end repeat
  77.   set icon of me to "Sml Next Hand"
  78.   visual effect dissolve slow
  79.   go card id 3127
  80. end mouseUp
  81.  
  82.  
  83. -- part 13 (field)
  84. -- low flags: 01
  85. -- high flags: 2000
  86. -- rect: left=225 top=241 right=315 bottom=381
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 3
  91. -- text size: 12
  92. -- style flags: 8448
  93. -- line height: 16
  94. -- part name: CountDown
  95.  
  96.  
  97. -- part 14 (field)
  98. -- low flags: 80
  99. -- high flags: 0000
  100. -- rect: left=79 top=133 right=145 bottom=91
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 216
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Time
  109.  
  110.  
  111. -- part 15 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=468 top=236 right=270 bottom=504
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 19254 / 19254
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Open Stack
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   play "what is thy bidding?"
  126.   domenu "open stack..."
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part contents for card part 9
  132. ----- text -----
  133. Wednesday, February 12, 1992
  134.  
  135. -- part contents for card part 14
  136. ----- text -----
  137. 12:15 PM
  138. 2/12/92
  139.  
  140. -- part contents for card part 13
  141. ----- text -----
  142. There are 2879 days, 11 hours, 44 minutes, and 45 seconds until the end of the century!